COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00005 ENDMK
C⊗;

180	JJ=JJ2-2
	L=JJ2
	DO 12 J=1,JJ
	R=CODEN(KPN,J,Q,LA)
CC	IF(CODEN(KPN,J,Q,LA).NE.4)GO TO 12
	IF(R.EQ.4)GO TO 680
	IF(NOGRCE)GO TO 12
	IF(R.NE.1)GO TO 12
C NEXT TO GIVE EQUAL SPACE FOR EVERY GRACE NOTE
C FOUND A NOTE
	IF(Q(LA+9).GT.0.05)GO TO 12 
C JUMP IF NOT A GRACE NOTE
	DO 580 LF=KK+1,L
	IF(CODEN(KPN,LF,Q,JD).NE.1)GO TO 580
  	R4=Q(LA+3) 
CC	R4=Q(LA+3)-1 
	R5=Q(JD+3)
	IF(R4.EQ.R5)GO TO 580
	R2=Q(LA+2)
C  THE STAFF # IS IN R2
	R8=RSTFAC(IFIX(R2+1))+.5
	IF(Q(JD+4).LT.80)R8=R8*2  
	R8=R5-R8
CC	R8=R5-R8-1
C  INSURES SPACE BETWEEN GRACE NOTE AND NEXT NOTE
	R9=R5
	CALL PTMOVE(Q,KPN)
CC	TYPE 9999,Q(J+3),Q(JD+3)
CC9999	FORMAT(2F)
	GO TO 12 
580	CONTINUE
C  ABOVE FOR GRACE NOTE SPACING.
680	KBR=KBR+1
C BAR LINE COUNTER
	T=Q(LA+3)
C TOTAL SPACE
222	BARS(KBR)=T-RNEXT
C SIZE OF THIS MEASURE
	K=J
	RNEXT=T
12	CONTINUE
	IF(K.NE.JJ)RNEXT=Q(KPN(JJ)+3)
	RNEXT=RNEXT+3
	JJ2=L 
C JJ2 GETS WIPED OUT IN PTMOVE, SO GET IT BACK HERE
380	LCNT=0
	NDPY=0
C JJ2 IS END OF PNTR DATA
	JPQ=KPN(JJ2-1)+1
	CALL PUTEXT(NMPG,'PAG')
	CALL EXTOUT(RSTFAC,128)
	CALL EXTOUT(PN,JJ2)
	CALL EXTOUT(Q,JPQ)
	CALL FINEXT

	LASTNM=NMPG
	NMPG=NMPG+2
	IF(NMPG.LE.NPZ)GO TO 122
C  WILL GO FROM PAGEA TO PAGFZ  (52)   ADD TO THIS!!
	NMPG='PAGFA'
	NPZ=NPZ+256
CZ122	KNM(1)=KNM(1)+2
122	ENDLN=RNEXT
	END